Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Make Tcl_WideInt equal to long long, don't allow it to be overridden any more |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | tclwideint-is-longlong |
Files: | files | file ages | folders |
SHA3-256: |
880908600b6a2e9ae8544a4ba9206db7 |
User & Date: | jan.nijtmans 2025-04-18 09:25:34.329 |
Context
2025-04-18
| ||
09:25 | Make Tcl_WideInt equal to long long, don't allow it to be overridden any more Leaf check-in: 880908600b user: jan.nijtmans tags: tclwideint-is-longlong | |
2025-04-17
| ||
21:04 | Merge 9.0 check-in: e3bd8b47de user: jan.nijtmans tags: trunk, main | |
Changes
Changes to generic/tcl.h.
︙ | ︙ | |||
269 270 271 272 273 274 275 | * Tcl_WideAsDouble - converter from wideInt to double. * Tcl_DoubleAsWide - converter from double to wideInt. * * The following invariant should hold for any long value 'longVal': * longVal == Tcl_WideAsLong(Tcl_LongAsWide(longVal)) */ | | < < < < | | | 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 | * Tcl_WideAsDouble - converter from wideInt to double. * Tcl_DoubleAsWide - converter from double to wideInt. * * The following invariant should hold for any long value 'longVal': * longVal == Tcl_WideAsLong(Tcl_LongAsWide(longVal)) */ #if !defined(TCL_WIDE_INT_IS_LONG) && !defined(_WIN32) && !defined(__GNUC__) /* * Don't know what platform it is and configure hasn't discovered what is * going on for us. Try to guess... */ # include <limits.h> # if defined(LLONG_MAX) && (LLONG_MAX == LONG_MAX) # define TCL_WIDE_INT_IS_LONG 1 # endif #endif typedef long long Tcl_WideInt; typedef unsigned long long Tcl_WideUInt; #ifndef TCL_LL_MODIFIER # if defined(_WIN32) && (!defined(__USE_MINGW_ANSI_STDIO) || !__USE_MINGW_ANSI_STDIO) # define TCL_LL_MODIFIER "I64" # else # define TCL_LL_MODIFIER "ll" # endif |
︙ | ︙ |